home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 18 / AMIGAplus Sonderheft 18 (1999)(ICP)(DE)[!].iso / Patch / etwPatch / Update-ETW < prev    next >
Text File  |  1998-11-22  |  6KB  |  225 lines
  1. ; ETW Installer Utility
  2. ;
  3. ; Written by Gabriele Greco
  4. ; for Eat The Whistle France 98
  5. ;
  6. ; Copyright © 1998 Hurricane Studios/Epic Marketing
  7. ;
  8.  
  9. (
  10.    ;================================================================
  11.    ; Setup
  12.    ;================================================================
  13.  
  14.    ; script variables...
  15.  
  16.    (set programname "ETW-France98")           ; name of program
  17.    (set drawername "ETW")               ; name of drawer to make for program
  18.    (set cd_name "EatTheWhistle-CD:")          ; install disk name
  19.    (set bytesreq "300kb")                    ; HD space required
  20.  
  21.    ; system information...
  22.  
  23.    (set osver (/ (getversion) 65536))        ; os version
  24.    (set cputype (database "cpu"))            ; cpu type
  25.  
  26.    (set initialdir @default-dest)            ; defaults to biggest drive
  27.  
  28.    ;-------------------
  29.    ; Ask where to install it...
  30.  
  31.    (set wheredir
  32.       (askdir
  33.          (prompt "Select a directory where you would like to place the "
  34.          "updated binaries... (About 300kbytes required)")
  35.          (help "If you have installed ETW to HD you can install the patch "
  36.                "over the old version, your settings will be preserved.")
  37.          (default initialdir)
  38.       )
  39.    )
  40.  
  41.    (set chosendir wheredir)
  42.  
  43.    ;-------------------
  44.    ; Determine whether we are upgrading or installing new
  45.    (if (exists (tackon wheredir "game"))
  46.       (
  47.          ; Installing into an old ETW directory.
  48.          (set writeover 1)
  49. ;         (set wheredir (tackon wheredir "/"))
  50.          (message "The version of ETW in `" wheredir "' will be updated.  If this is correct, click `Proceed'.")
  51.       )
  52.       ;
  53.       (
  54.          (set writeover 0)
  55.          (message    "The patched executables will be placed in "
  56.             "a new drawer called `" drawername "' in '" wheredir 
  57.             "'.  If this is correct, click `Proceed'.")
  58.      (set wheredir (tackon wheredir "ETW"))
  59.      (makedir wheredir (infos))
  60.       )
  61.    )
  62.  
  63.    (set @default-dest wheredir)
  64.  
  65.    (askdisk
  66.       (prompt "Please insert " cd_name " in any drive.")
  67.       (help "")
  68.       (dest (substr cd_name 0 (- (strlen cd_name) 1)))
  69.       (assigns)
  70.    )
  71.  
  72.    (working "I'm patching 'etw'...")
  73.    (run ("spatch -o%s -petw.pch %s" (tackon wheredir "etw") (tackon cd_name "etw")))
  74.    (working "I'm patching 'game'...")
  75.    (run ("spatch -o%s -pgame.pch %s" (tackon wheredir "game") (tackon cd_name "game")))
  76.  
  77.    (if
  78.     (askbool (prompt "Do you want to install the ASCII manual?")
  79.         (help "Since the first copies of the ETW CD are wrongly shipped"
  80.             " without printed manual we provide it in ASCII format"
  81.             " with this patch.")
  82.     (choices "Yes" "No")
  83.     (default 1)
  84.     )
  85.     (
  86.        (copyfiles
  87.           (prompt "")
  88.           (help "")
  89.           (source "")
  90.           (dest wheredir)
  91.           (infos)
  92.           (choices "EatTheWhistle.doc")
  93.        )
  94.     )
  95.    )
  96.  
  97.    (copyfiles
  98.       (prompt "")
  99.       (help "")
  100.       (source cd_name)
  101.       (dest wheredir)
  102.       (choices "ETW.info")
  103.    )
  104.  
  105.    (run ("copy %s %s" (tackon cd_name "developers.info") (tackon chosendir "ETW.info")))
  106.  
  107. ;   (copyfiles
  108. ;      (prompt "")
  109. ;      (help "")
  110. ;      (source diskname1)
  111. ;      (dest "RAM:")
  112. ;      (choices "lhex")
  113. ;   )
  114.  
  115.    (if
  116.     (askbool (prompt "Would you like to install the WHOLE game to Hard Disk? "
  117.         "(by default only the patched executables will be installed)")
  118.         (help "The WHOLE game will need about 20MB of free space in the "
  119.             "selected partition.")
  120.     (choices "Yes, full installation" "No, Only patches")
  121.     (default 0)
  122.     )
  123.    (
  124.    
  125.    (complete 0)
  126.  
  127.    (working "ETW: Copying system related files...")
  128.    (run("copy %s %s all" (tackon cd_name "catalogs/") (tackon wheredir "catalogs")))
  129.  
  130.    (copylib
  131.     (prompt "Installing lowlevel.library")
  132.     (help "ETW needs lowlevel.library for the input handling!\n")
  133.     (source (tackon cd_name "libs/lowlevel.library"))   
  134.     (dest "libs:")
  135.     (confirm)
  136.    )
  137.  
  138.    (complete 5)
  139.  
  140.    (if    (askbool (prompt "Would you like to install the game intros?") 
  141.         (help    "If you have not enough space on your HD you can choose to not install"
  142.             "the game intros, you can also delete it after the installation"
  143.             "removing the intro subdirectory from the ETW directory."
  144.             "The intros requires about 2MB of hard disk space.")
  145.         (choices "Yes" "No")
  146.         (default 1)
  147.          )
  148.     (
  149.        (working "ETW: Installing Intros...")
  150.        (run("copy %s %s all" (tackon cd_name "intro/") (tackon wheredir "intro")))
  151.     )
  152.     (
  153.        (run("copy %s %s" (cat cd_name "intro/~(#?.anim)") (tackon wheredir "intro")))
  154.     )
  155.    )
  156.  
  157.    (complete 10)
  158.  
  159.    (working "ETW: Installing menu graphics...")
  160.    (run("copy %s %s all" (tackon cd_name "menugfx/") (tackon wheredir "menugfx")))
  161.  
  162.    (complete 25)
  163.  
  164.    (working "ETW: Installing game graphics...")
  165.    (run("copy %s %s all" (tackon cd_name "gfx/") (tackon wheredir "gfx")))
  166.  
  167.    (complete 55)
  168.  
  169.    (working "ETW: Installing teams...")
  170.    (run("copy %s %s all" (tackon cd_name "teams/") (tackon wheredir "teams")))
  171.  
  172.    (complete 58)
  173.  
  174.    (working "ETW: Installing tactics...")
  175.    (run("copy %s %s all" (tackon cd_name "tct/") (tackon wheredir "tct")))
  176.  
  177.    (complete 60)
  178.    (working "ETW: Installing fonts...")
  179.    (run("copy %s %s all" (tackon cd_name "fonts/") (tackon wheredir "fonts")))
  180.  
  181.    (complete 62)
  182.  
  183.    (working "ETW: Installing sounds...")
  184.    (run("copy %s %s all" (tackon cd_name "snd/") (tackon wheredir "snd")))
  185.    (complete 65)
  186.    (run("copy %s %s all" (tackon cd_name "arcadesnd/") (tackon wheredir "arcadesnd")))
  187.    (complete 70)
  188.    (run("copy %s %s all" (tackon cd_name "crowd/") (tackon wheredir "crowd")))
  189.  
  190.    (complete 80)
  191.    (working "ETW: Installing spoken comment...")
  192.    (run("copy %s %s all" (tackon cd_name "talk/") (tackon wheredir "talk")))
  193.  
  194.    (makedir (tackon wheredir "saves"))
  195.    
  196.    (complete 90)
  197.    (working "ETW: Installing musics...")
  198.    (run("copy %s %s all" (tackon cd_name "music/") (tackon wheredir "music")))
  199.  
  200.    (complete 98)
  201.  
  202.    (if    (askbool
  203.         (prompt "Would you like to install the developer tools and documentation?")
  204.         (help    "This option let you install a directory with the ETW tactics editor, the team editor,"
  205.             "catalog descriptors, infos to create a custom spoken comment and more!")
  206.         (choices "Yes" "No")
  207.         (default 1)    
  208.     )
  209.     (
  210.        (working "ETW: Installing Developer Tools...")
  211.        (run("copy %s %s all" (tackon cd_name "developers/") (tackon wheredir "developers")))        
  212.     )
  213.    )
  214.         
  215.    (complete 100)
  216.  )
  217. )
  218. )
  219.  
  220. ;-----------------------------------------------------------------------
  221. ; Revision History:
  222. ;
  223. ; 21-11-98 First version
  224. ;
  225.